Procedure Put(Item:ListData);

    This changes the value of  the  current  item.   If the item does not
    exist (say you  Put  the  5th  item  but  there  are  only  4 items),
    then that item is created and the list size becomes 5.

    Warning

    No range checking is performed.

    If you have 4 items  in  the  list  and  Put  item  6,  the list size
    becomes 6 and item 5 is undefined.